﻿Imports System.Net.Mail

Partial Public Class FaleConosco
    Inherits System.Web.UI.Page
    Protected script As String

    Protected Sub btnEnviar_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnEnviar.Click
        EnviarEmail()
    End Sub
    Public Sub EnviarEmail()
        Dim fun As New Funcoes

        Dim msg As New MailMessage
        Dim smtpMail As New SmtpClient
        Try
            smtpMail = New System.Net.Mail.SmtpClient("localhost", 25)
            msg = New System.Net.Mail.MailMessage(Me.txtEmail.Text, "imprensa@icli.com.br")
            smtpMail.Credentials = New System.Net.NetworkCredential("imprensa@icli.com.br", "leon2010")
            msg.From = New MailAddress("contato@icli.com.br", "ICLI - Iate Clube Foz do Iguaçu")
            msg.Body = "Remetente: <b>" & Me.txtNome.Text + "</b><BR>" & _
                       "E-mail: <b>" & Me.txtEmail.Text + "</b><BR>" & _
                       "<BR>" & Me.txtMensagem.Text
            msg.Subject = "E-mail enviado em: " + DateTime.Now.ToString("dd/MM/yyyy")
            msg.IsBodyHtml = True


            'email()
            smtpMail.Send(msg)
            script += fun.MsgboxAviso("Mensagem enviada com sucesso!")
            txtNome.Text = ""
            txtEmail.Text = ""
            txtMensagem.Text = ""
        Catch ex As Exception
            script += fun.MsgboxAviso("Ocorreu um erro ao enviar o e-mail: " & ex.Message)
        Finally
            'limpa o objeto da memória 
            msg.Dispose()
        End Try
    End Sub
End Class